<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<%
Response.ContentType = "application/json"
action=saferequest("action",0)
username=saferequest("username",0)
password=Ucase(saferequest("password",0))
checkpws=saferequest("checkpws",0)
'response.write(username)
'response.end
dim json
set json=jsObject()
json("bStatus")=false
if action="确定" and checkpws then
	set rs=server.createobject("adodb.recordset")
	sql="select * from username where username='"&username&"'"
	rs.open sql,conn,1,1
	if not rs.eof then
		call ExecuteCommand("update username set [password]='"&password&"' where username='"&username&"'",false)
		json("bStatus")=true
		json("sInfo")="密码已重新设定"
	else
		json("sInfo")="找不到用户"
	end if
	rs.close
	set rs=nothing
end if
json.Flush
%>
<!--#include file="lib/connclose.asp"-->